CREATE OR REPLACE PACKAGE pkg_mensagem AS

	TYPE rc_mensagem IS REF CURSOR;
	
	PROCEDURE proc_getMensagens(
		p_rc_mensagens OUT rc_mensagem,
		p_cpf IN usuario.cpf%TYPE);
		
	PROCEDURE proc_addMensagem(
		p_cpf usuario.cpf%TYPE,
		p_cpfRemetente usuario.cpf%TYPE,
		p_mensagem mensagem.mensagem%TYPE
	);
		
END pkg_mensagem;

/

CREATE OR REPLACE PACKAGE BODY pkg_mensagem AS
	
	PROCEDURE proc_getMensagens(
		p_rc_mensagens OUT rc_mensagem,
		p_cpf IN usuario.cpf%TYPE
	) AS
	BEGIN
	
		OPEN p_rc_mensagens FOR
			SELECT men.mensagem FROM mensagem men WHERE
				cpfusuario = p_cpf;
				
	END proc_getMensagens;
	
	PROCEDURE proc_addMensagem(
		p_cpf usuario.cpf%TYPE,
		p_cpfRemetente usuario.cpf%TYPE,
		p_mensagem mensagem.mensagem%TYPE
	) AS
	BEGIN
	
		INSERT INTO mensagem (idmensagem, cpfusuario, cpfremetente, mensagem)
			VALUES (seqidmensagem.nextval, p_cpf, p_cpfremetente, mensagem);
	
	END proc_addMensagem;

END pkg_mensagem;
